---
title: "YGL Gene Localizations"
author: "Orestis Ousoultzoglou"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    social: menu
    source_code: embed
---

```{r setup, include=FALSE}
library(arrow)
library(ggplot2)
library(here)
library(plotly)
library(flexdashboard)
```

HIS4
=======================================================================

```{r HIS4}
df <- arrow::read_feather(here::here("tibbles", "HIS4.feather"))
p <- ggplot(df, aes(x = timepoints, y = values, group = names, color = names)) +
  geom_line()
ggplotly(p)
```

HUG1
=======================================================================

```{r HUG1}
df <- arrow::read_feather(here::here("tibbles", "HUG1.feather"))
p <- ggplot(df, aes(x = timepoints, y = values, group = names, color = names)) +
  geom_line()
ggplotly(p)
```

RNR3
=======================================================================

```{r RNR3}
df <- arrow::read_feather(here::here("tibbles", "RNR3.feather"))
p <- ggplot(df, aes(x = timepoints, y = values, group = names, color = names)) +
  geom_line()
ggplotly(p)
```

RNR4
=======================================================================

```{r RNR4}
df <- arrow::read_feather(here::here("tibbles", "RNR4.feather"))
p <- ggplot(df, aes(x = timepoints, y = values, group = names, color = names)) +
  geom_line()
ggplotly(p)
```

RPL8A
=======================================================================

```{r RPL8A}
df <- arrow::read_feather(here::here("tibbles", "RPL8A.feather"))
p <- ggplot(df, aes(x = timepoints, y = values, group = names, color = names)) +
  geom_line()
ggplotly(p)
```